Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim ȿ˻ As Range
    Dim  As String

    If Target.Count > 1 Then Exit Sub

    Set ȿ˻ = Range("C6", Cells(Rows.Count, "B").End(xlUp).Offset(, 1))

    If Not Intersect(Target, ȿ˻) Is Nothing Then

         = ϸ(ȿ˻)

        With Target.Validation

            .Delete

            If Len() > 0 Then

                .Add Type:=xlValidateList, Formula1:=

            End If

        End With

    End If

End Sub